home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 06-12.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  684 b   |  39 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE FUNCTION RandomNumber(Min,Max)
  6.  
  7. CONST Rectangles = 200
  8.  
  9. OldMode = FGgetmode
  10. FGsetmode FGautomode
  11. FGboxdepth 3, 3
  12.  
  13. Xres = FGgetmaxx + 1
  14. Yres = FGgetmaxy + 1
  15.  
  16. FOR I = 1 TO Rectangles
  17.    MinX = RandomNumber(0,Xres)
  18.    MaxX = RandomNumber(0,Xres)
  19.    MinY = RandomNumber(0,Yres)
  20.    MaxY = RandomNumber(0,Yres)
  21.    IF MinX > MaxX THEN SWAP MinX, MaxX
  22.    IF MinY > MaxY THEN SWAP MinY, MaxY
  23.    FGsetcolor RandomNumber(0,15)
  24.    FGbox MinX, MaxX, MinY, MaxY
  25. NEXT
  26.  
  27. FGsetmode OldMode
  28. FGreset
  29.  
  30. END
  31.  
  32.  
  33. FUNCTION RandomNumber(Min,Max)
  34.  
  35. Temp = RND * 32767
  36. RandomNumber = (Temp MOD (Max-Min+1)) + Min
  37.  
  38. END FUNCTION
  39.